﻿<!--#include file="h.asp"--><%
'
'	七色虎建站系统
'	彩简转换页面
'	2012.4.5

Sub main
	Dim a,u,body_
	a=getN("type",0)
	u=Request.QueryString("_u")
	hu.title = "简彩版切换"
	body_ = ""
	If a=0 Then
		If hu_style Then
			body_ = body_ & "您确定使用切换到wap1.0页面吗？<br/><a href="""&http_path&"style.asp?type=1&amp;"&sid_str&""">是,切换到1.0页面</a>"
			If ifWeb Then body_ = body_ & "<div class=""tip"">经检测，您的页面不支持wml，为了防止错误，设置无法生效！</div>"
		Else
			body_ = body_ & "您确定使用切换到wap2.0页面吗？<br/><a href="""&http_path&"style.asp?type=2&amp;"&sid_str&""">是,切换到2.0页面</a>"
		End If
	Elseif a=1 Then
		hu.sid = getSidWithStyle_(sid, 1)
		body_ = body_ & "已经帮您配置好！"& hu.url("?aid=index", "马上体验效果!")
	Elseif a=2 Then
		hu.sid = getSidWithStyle_(sid, 3)
		body_ = body_ & "已经帮您配置好！"& hu.url("?aid=index", "马上体验效果!")
	Else
		If hu_style Then
			body_ = body_ & "已经是2.0页面了！"
		Else
			body_ = body_ & "已经是1.0页面了！"
		End If
	End If
	If u<>"" Then body_ = body_ & " "&hu.url(getBackUrl(u),"返回来页")
	hu.body = comUbb("[div=nav]-"&hu.url("?aid=index","首页")&"-简彩版切换[/div]")& body_
End Sub

Function getSidWithStyle_(sid_, style_)
	Dim arr_
	arr_=Split(sid_,"_")
	If UBound(arr_)>-1 Then
		sid_ = arr_(0)
	Else
		sid_ = "guest" & Session.SessionID
	End If
	getSidWithStyle_ = sid_ & "_" & style_
End Function
%>